unit Td_Depotkind_List;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseDataListForm, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxStyles, dxSkinsCore, dxSkinsDefaultPainters,
  dxSkinscxPCPainter, cxDataStorage,
  cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, Menus, DBActns, StdActns, ActnList, ImgList,
  cxClasses, cxGridCustomView, cxGrid, ExtCtrls,
  StdCtrls, cxContainer, cxLabel, cxCheckBox, cxTextEdit,
  cxMaskEdit, cxDropDownEdit,
  cxGridCustomPopupMenu, dxSkinsForm, cxNavigator,
  System.Actions, cxCustomData, cxFilter, cxData, cxGridPopupMenu, MemDS,
  DBAccess, Uni, System.ImageList, cxGridLevel, cxButtons;

type
  TfrmTd_Depotkind_List = class(TfrmBaseDataListForm)
    code: TcxGridDBColumn;
      name: TcxGridDBColumn;
    kind: TcxGridDBColumn;
    isubid: TcxGridDBColumn;
    csubid: TcxGridDBColumn;
    ssubid: TcxGridDBColumn;
    rsubid: TcxGridDBColumn;
    asubid: TcxGridDBColumn;
    gsubid: TcxGridDBColumn;
    lsubid: TcxGridDBColumn;
    vsubid: TcxGridDBColumn;
    MainDataSetUdepotkindid: TIntegerField;
    MainDataSetUcode: TStringField;
    MainDataSetUname: TStringField;
    MainDataSetUkind: TIntegerField;
    MainDataSetUisubid: TIntegerField;
    MainDataSetUcsubid: TIntegerField;
    MainDataSetUssubid: TIntegerField;
    MainDataSetUrsubid: TIntegerField;
    MainDataSetUasubid: TIntegerField;
    MainDataSetUupflag: TIntegerField;
    MainDataSetUgsubid: TIntegerField;
    MainDataSetUlsubid: TIntegerField;
    MainDataSetUkname: TStringField;
    MainDataSetUisubidname: TWideStringField;
    MainDataSetUcsubidname: TWideStringField;
    MainDataSetUssubidname: TWideStringField;
    MainDataSetUrsubidname: TWideStringField;
    MainDataSetUasubidname: TWideStringField;
    MainDataSetUgsubidname: TWideStringField;
    MainDataSetUlsubidname: TWideStringField;
    MainDataSetUvsubid: TIntegerField;
    MainDataSetUvsubidname: TWideStringField;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  protected
    function AppendRecord: Boolean; override;
    function EditRecord: Boolean; override;
  public
    { Public declarations }
  end;

var
  frmTd_Depotkind_List: TfrmTd_Depotkind_List;

implementation

uses Td_Depotkind_Edit, MisString;

{$R *.dfm}

procedure TfrmTd_Depotkind_List.FormCreate(Sender: TObject);
begin
  FKeyField := 'depotkindid';
  FCodeField := 'code';
  FTableName := 'v_td_depotkind';
  inherited;

end;

function TfrmTd_Depotkind_List.AppendRecord: Boolean;
begin
  ShowEditForm(frmTd_Depotkind_Edit, TfrmTd_Depotkind_Edit, et_New);
  Result := True;
end;

function TfrmTd_Depotkind_List.EditRecord: Boolean;
begin
  ShowEditForm(frmTd_Depotkind_Edit, TfrmTd_Depotkind_Edit, et_Modify);
  Result := True;
end;

end.



